home *** CD-ROM | disk | FTP | other *** search
- 100 rem --- hi-score reset ---
- 110 printchr$(14)"[147] [196]ieses [208]rogramm loescht alle"
- 120 print" [200]iscore-[197]intraege."
- 130 input" [215]ollen [211]ie das ";x$
- 140 ifx$<>"j"andx$<>"y"thenend
- 150 print" [194]itte warten..."
- 200 open2,8,2,"@:scores,s,w"
- 300 forx=1to40
- 400 print#2,"------------" :print#2,0
- 500 next:close2
-